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MACRO Definitions for LISP 
by Timothy V„ Bart 

la LISP 1<5 special Coma are used for three logically separate 
purposes: a) to reach the alist v bj to allow fuoctiooe to have as 
indefinite number of erguaents, and c) to keep arguments from being 
evaluated * 

New LISP interpreters can easily satisfy need (a) by staking the 
alist a 8?ECIAL-type or APWttrtype entity. Uses (b) and (c) can be 
rapleced by incorporating a MACRO instruction expander in define . I 

| 

an proposing such an expander. 

1. The property list of a macro instruction will hove the indicator 
MACRO followed by a function of one argument, a form beginning with the 
macro's nan* and whose value will replace the original form in all func¬ 
tion definitions. 

2. Tbe function jggcsgf 1 ] will define macro's just aa define[1] 
defines functions. 

3. define will be modified to cutke macro expansions . 

Examples: 

1. The eidetlng F1XPR caata may ba replaced by the naero definition: 
MACRO (( 

<CC8STQ (LAMBDA (FORM) (LIST (QUOTE CSKT)(LZ8T (QUOTE QOOTB)(CA1S VOW)) 
<CAODR V02M)))) 

)) 
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2 c A new macro atas^ will geaeraU the form found frequently in 
PROG'a: 

x :■* cono[foxm;x] 

using the macro s tash , one might write Lite lead of the above: 

(STASH POSH X)c 
Stash nay be defined by; 

MACRO (( 

(STASH (LAMBDA (FORM) (LIST (QUOTE SETQJ (RADAR FORM)(LIST (C0H3 (CADH FORM) 
(CADAR FORM))) ))> 

)) 

3. Raw macros may be defined in tarns of old. is a macro 

for adding a now entry to the table (dotted pairs) stored as the value 
of a program variable. 

enter [form] list (STASB;l(sti.'50IIS;cadr[ form] ;caddr[ form]]; 

cadddr[foru]] 

Incitentally, use of macroswill alleviate the present difficulty 
resulting from the 90 LISP compiler^ oaly knowing about those faxpra 
In existence at its birth. 

The macro defining function nacrofll is easily defined) 

*ecro[lJ 3t deflist[l;MAC80] 

The new define is a little harder: 

define[l)<5 deflist(adefU);BXPR) 

mdefll ]m l 

etoeil] -elj 

eg tear UJ ;QD01S] -* 1; 

member(eer(l);(LAMBDA LA1BL P80C)] -W ' 

con«{carlll;conalcedr[l];mdeflcaddr(l)]l]i 



r 




get [c ar u J;MACRO 3 * > .»de:: [get [card i ; l&XO] 
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T3.'ipUst{1 ;\[ [ j] jjidef [car[j 111J1 


/, 


The macro for eelec t illustrates the use of m-ioros as t 


ox aUowir*j functions of an arbtcrorj nuaibe;.* of arguaanss: 

1 f - I ^ACRO. r | 1 

flftlec ;:[rorail re 

listfUst! ;HatfgJ i•:on«[CCTJD; 

icaplist[ck.<'r[ Corral tl j; 

[null IcdffUll ** HstlTjcarlUI; 

T -* list(ii3C:[BQ;5;c<ar[lJl;ca<i&r[lJ JJ]J 
11 }cadi'tfc Taj 1 j [genaymd ) 


means 
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